home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 4: GNU Archives / Linux Cubed Series 4 - GNU Archives.iso / gnu / textutil.19 / textutil / textutils-1.19 / lib / strpbrk.c < prev    next >
Encoding:
C/C++ Source or Header  |  1995-10-09  |  1.2 KB  |  40 lines
  1. /* Copyright (C) 1991, 1994 Free Software Foundation, Inc.
  2.    NOTE: The canonical source of this file is maintained with the GNU C Library.
  3.    Bugs can be reported to bug-glibc@prep.ai.mit.edu.
  4.  
  5.    This program is free software; you can redistribute it and/or modify it
  6.    under the terms of the GNU General Public License as published by the
  7.    Free Software Foundation; either version 2, or (at your option) any
  8.    later version.
  9.  
  10.    This program is distributed in the hope that it will be useful,
  11.    but WITHOUT ANY WARRANTY; without even the implied warranty of
  12.    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13.    GNU General Public License for more details.
  14.  
  15.    You should have received a copy of the GNU General Public License
  16.    along with this program; if not, write to the Free Software
  17.    Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  18.  
  19. #ifdef HAVE_CONFIG_H
  20. # include <config.h>
  21. #endif
  22.  
  23. /* Find the first ocurrence in S of any character in ACCEPT.  */
  24. char *
  25. strpbrk (s, accept)
  26.      register const char *s;
  27.      register const char *accept;
  28. {
  29.   while (*s != '\0')
  30.     {
  31.       const char *a = accept;
  32.       while (*a != '\0')
  33.     if (*a++ == *s)
  34.       return (char *) s;
  35.       ++s;
  36.     }
  37.  
  38.   return 0;
  39. }
  40.